home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / odlist / odlist.bas < prev    next >
BASIC Source File  |  1994-12-06  |  6KB  |  152 lines
  1. Option Explicit
  2.  
  3. Global Const WM_DRAWITEM = &H2B
  4. Global Const WM_MEASUREITEM = &H2C
  5.  
  6. '   Ternary raster operations
  7. Global Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
  8. Global Const SRCPAINT = &HEE0086    ' (DWORD) dest = source OR dest
  9. Global Const SRCAND = &H8800C6  ' (DWORD) dest = source AND dest
  10. Global Const SRCINVERT = &H660046   ' (DWORD) dest = source XOR dest
  11. Global Const SRCERASE = &H440328    ' (DWORD) dest = source AND (NOT dest )
  12. Global Const NOTSRCCOPY = &H330008  ' (DWORD) dest = (NOT source)
  13. Global Const NOTSRCERASE = &H1100A6 ' (DWORD) dest = (NOT src) AND (NOT dest)
  14. Global Const MERGECOPY = &HC000CA   ' (DWORD) dest = (source AND pattern)
  15. Global Const MERGEPAINT = &HBB0226  ' (DWORD) dest = (NOT source) OR dest
  16. Global Const PATCOPY = &HF00021 ' (DWORD) dest = pattern
  17. Global Const PATPAINT = &HFB0A09    ' (DWORD) dest = DPSnoo
  18. Global Const PATINVERT = &H5A0049   ' (DWORD) dest = pattern XOR dest
  19. Global Const DSTINVERT = &H550009   ' (DWORD) dest = (NOT dest)
  20. Global Const BLACKNESS = &H42&  ' (DWORD) dest = BLACK
  21. Global Const WHITENESS = &HFF0062   ' (DWORD) dest = WHITE
  22.  
  23. '  StretchBlt() Modes
  24. Global Const BLACKONWHITE = 1
  25. Global Const WHITEONBLACK = 2
  26. Global Const COLORONCOLOR = 3
  27.  
  28. '  PolyFill() Modes
  29. Global Const ALTERNATE = 1
  30. Global Const WINDING = 2
  31.  
  32. ' SetAttr, Dir, GetAttr functions
  33. Global Const ATTR_NORMAL = 0
  34. Global Const ATTR_READONLY = 1
  35. Global Const ATTR_HIDDEN = 2
  36. Global Const ATTR_SYSTEM = 4
  37. Global Const ATTR_VOLUME = 8
  38. Global Const ATTR_DIRECTORY = 16
  39. Global Const ATTR_ARCHIVE = 32
  40.  
  41. '  DrawText() Format Flags
  42. Global Const DT_TOP = &H0
  43. Global Const DT_LEFT = &H0
  44. Global Const DT_CENTER = &H1
  45. Global Const DT_RIGHT = &H2
  46. Global Const DT_VCENTER = &H4
  47. Global Const DT_BOTTOM = &H8
  48. Global Const DT_WORDBREAK = &H10
  49. Global Const DT_SINGLELINE = &H20
  50. Global Const DT_EXPANDTABS = &H40
  51. Global Const DT_TABSTOP = &H80
  52. Global Const DT_NOCLIP = &H100
  53. Global Const DT_EXTERNALLEADING = &H200
  54. Global Const DT_CALCRECT = &H400
  55. Global Const DT_NOPREFIX = &H800
  56. Global Const DT_INTERNAL = &H1000
  57.  
  58. Type RECT
  59.     left As Integer
  60.     top As Integer
  61.     right As Integer
  62.     bottom As Integer
  63. End Type
  64.  
  65. Type MEASUREITEMSTRUCT
  66.     CtlType As Integer
  67.     CtlID As Integer
  68.     itemID As Integer
  69.     itemWidth As Integer
  70.     itemHeight As Integer
  71.     itemData As Long
  72. End Type
  73.  
  74. Type DRAWITEMSTRUCT
  75.     CtlType As Integer
  76.     CtlID As Integer
  77.     itemID As Integer
  78.     itemAction As Integer
  79.     itemState As Integer
  80.     hwndItem As Integer
  81.     hDC As Integer
  82.     rcItem As RECT
  83.     itemData As Long
  84. End Type
  85.  
  86. '  Listbox Styles
  87. Global Const LBS_NOTIFY = &H1&
  88. Global Const LBS_SORT = &H2&
  89. Global Const LBS_NOREDRAW = &H4&
  90. Global Const LBS_MULTIPLESEL = &H8&
  91. Global Const LBS_OWNERDRAWFIXED = &H10&
  92. Global Const LBS_OWNERDRAWVARIABLE = &H20&
  93. Global Const LBS_HASSTRINGS = &H40&
  94. Global Const LBS_USETABSTOPS = &H80&
  95. Global Const LBS_NOINTEGRALHEIGHT = &H100&
  96. Global Const LBS_MULTICOLUMN = &H200&
  97. Global Const LBS_WANTKEYBOARDINPUT = &H400&
  98. Global Const LBS_EXTENDEDSEL = &H800&
  99. 'global Const LBS_STANDARD = (LBS_NOTIFY Or LBS_SORT Or WS_VSCROLL Or WS_BORDER)
  100. '
  101. 'Windows 3.1 Additions
  102. Global Const LBS_DISABLENOSCROLL = &H1000&
  103. '
  104. 'Windows System Colors
  105. Global Const COLOR_SCROLLBAR = 0
  106. Global Const COLOR_BACKGROUND = 1
  107. Global Const COLOR_ACTIVECAPTION = 2
  108. Global Const COLOR_INACTIVECAPTION = 3
  109. Global Const COLOR_MENU = 4
  110. Global Const COLOR_WINDOW = 5
  111. Global Const COLOR_WINDOWFRAME = 6
  112. Global Const COLOR_MENUTEXT = 7
  113. Global Const COLOR_WINDOWTEXT = 8
  114. Global Const COLOR_CAPTIONTEXT = 9
  115. Global Const COLOR_ACTIVEBORDER = 10
  116. Global Const COLOR_INACTIVEBORDER = 11
  117. Global Const COLOR_APPWORKSPACE = 12
  118. Global Const COLOR_HIGHLIGHT = 13
  119. Global Const COLOR_HIGHLIGHTTEXT = 14
  120. Global Const COLOR_BTNFACE = 15
  121. Global Const COLOR_BTNSHADOW = 16
  122. Global Const COLOR_GRAYTEXT = 17
  123. Global Const COLOR_BTNTEXT = 18
  124. Global Const COLOR_ENDCOLORS = COLOR_BTNTEXT
  125. 'Windows 3.1 additions
  126. Global Const COLOR_INACTIVECAPTIONTEXT = 19
  127. Global Const COLOR_BTNHIGHLIGHT = 20
  128.  
  129. '  Owner draw actions
  130. Global Const ODA_DRAWENTIRE = &H1
  131. Global Const ODA_SELECT = &H2
  132. Global Const ODA_FOCUS = &H4
  133.  
  134. '  Owner draw state
  135. Global Const ODS_SELECTED = &H1
  136. Global Const ODS_GRAYED = &H2
  137. Global Const ODS_DISABLED = &H4
  138. Global Const ODS_CHECKED = &H8
  139. Global Const ODS_FOCUS = &H10
  140.  
  141. Declare Function DrawText Lib "User" (ByVal hDC As Integer, ByVal lpStr As String, ByVal nCount As Integer, lpRect As RECT, ByVal wFormat As Integer) As Integer
  142. Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer
  143. Declare Sub DrawFocusRect Lib "User" (ByVal hDC As Integer, lpRect As RECT)
  144. Declare Function GetSysColor Lib "User" (ByVal nIndex As Integer) As Long
  145. Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Long) As Integer
  146. Declare Function SelectObject Lib "GDI" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer
  147. Declare Function FillRect Lib "User" (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As Integer) As Integer
  148. Declare Function SetBkColor Lib "GDI" (ByVal hDC As Integer, ByVal crColor As Long) As Long
  149. Declare Function SetTextColor Lib "GDI" (ByVal hDC As Integer, ByVal crColor As Long) As Long
  150. Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer
  151.  
  152.